 open Printer  
 
 let _ =  if ((Array.length Sys.argv) = 1 ) 
 
 then let _ = print_string "Source File not provided" 
 in (); 
 else if ((Array.length Sys.argv) > 2 ) then 
 let _ = print_string "Only one source file as an argument is supported." 
 in (); 
 else let sourceFile = Sys.argv.(1) 
 in  
 let inChannel = open_in sourceFile 
 in 
 let lexbuf = Lexing.from_channel inChannel 
 in
 let tlen = String.index sourceFile '.'
 in 
 let substr = String.sub sourceFile 0 tlen
 in
 let strfile  = substr
 in
 let program = Parser_TablePro.program Scanner_TablePro.token lexbuf in ignore (Interpreter.runprogram program strfile) 